home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / examples / exmodem0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.1 KB  |  55 lines
  1. unit Exmodem0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, AdModem, AdPort, StdCtrls, Buttons;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Label2: TLabel;
  13.     BitBtn1: TBitBtn;
  14.     ApdComPort1: TApdComPort;
  15.     ApdModem1: TApdModem;
  16.     procedure BitBtn1Click(Sender: TObject);
  17.     procedure ApdModem1CmdTimedOut(Sender: TObject);
  18.     procedure ApdModem1ModemError(Sender: TObject);
  19.     procedure ApdModem1ModemOk(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. {$R *.DFM}
  32.  
  33. procedure TForm1.BitBtn1Click(Sender: TObject);
  34. begin
  35.   ApdModem1.Initialize;
  36. end;
  37.  
  38. procedure TForm1.ApdModem1CmdTimedOut(Sender: TObject);
  39. begin
  40.   Label2.Caption := 'Modem did not respond...';
  41. end;
  42.  
  43. procedure TForm1.ApdModem1ModemError(Sender: TObject);
  44. begin
  45.   Label2.Caption := 'Modem returned an error!';
  46. end;
  47.  
  48. procedure TForm1.ApdModem1ModemOk(Sender: TObject);
  49. begin
  50.   Label2.Caption := 'Modem initialized successfully!';
  51. end;
  52.  
  53. end.
  54.  
  55.